home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 3 / Gold Medal Software - Volume 3 (Gold Medal) (1994).iso / bbsutils / tstats2.arj / STATS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-02-18  |  7KB  |  167 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.  
  21. ;------------------------------------------------------------------------------
  22.  
  23.     :LABEL001
  24.     DispFile PPEPath() + "FIRST", 2 + 1 + 4
  25.     Newline
  26.     PrintLn "@POS:25@@X0C┌@X01██████████████████████████████@X0C┐"
  27.     PrintLn "@POS:25@@X0C│@X01███@X0C┐ @X04[@X0CP@X04] @X0Bφ @X03Private Stats@POS:52@@X0C┌@X01███@X0C│"
  28.     PrintLn "@POS:25@@X0C│@X01███@X0C│@POS:52@@X0C│@X01███@X0C│"
  29.     PrintLn "@POS:25@@X0C│@X01███@X0C│ @X04[@X0CF@X04] @X0Bφ @X03File Stats@POS:52@@X0C│@X01███@X0C│"
  30.     PrintLn "@POS:25@@X0C│@X01███@X0C│                      @X0C│@X01███@X0C│"
  31.     PrintLn "@POS:25@@X0C│@X01███@X0C│ @X04[@X0CM@X04] @X0Bφ @X03Message Stats@POS:52@@X0C│@X01███@X0C│"
  32.     PrintLn "@POS:25@@X0C│@X01███@X0C│@POS:52@@X0C│@X01███@X0C│"
  33.     PrintLn "@POS:25@@X0C│@X01███@X0C┘ @X04[@X0CQ@X04] @X0Bφ @X03Quit to BBS@POS:52@@X0C└@X01███@X0C│"
  34.     PrintLn "@POS:25@@X0C│@X01██████████████████████████████@X0C┘"
  35.     InputText "@POS:25@@X0C└───@X04> @X0FYour Choice", STRING001, 14, 1
  36.     Select Case (STRING001)
  37.         Case "Q"
  38.             Goto LABEL005
  39.         Case "q"
  40.             Goto LABEL005
  41.         Case ""
  42.             Goto LABEL005
  43.         Case "P"
  44.             Goto LABEL002
  45.         Case "F"
  46.             Goto LABEL003
  47.         Case "M"
  48.             Goto LABEL004
  49.             :LABEL002
  50.             Cls
  51.             Newline
  52.             PrintLn "@X19 ┌[ @X13T@X1BS @X1CStats @X1Fv2.0 @X19]───────────[ @X1CPrivate @X14Stats @X13[@X1FP@X13] @X19]────────@POS:60@@X10┐ "
  53.             PrintLn "@X19 └@X10─────────────────────────────────────────────────────────┘ "
  54.             Newline
  55.             PrintLn "@X19 ┌─────────────────────────────────────────────────────────@X10┐ "
  56.             PrintLn "@X19 │@POS:60@@X10│ "
  57.             PrintLn "@X19 │@X13        U@X1Bs@X13e@X1Br @X13N@X1Ba@X13m@X1Be @X1A┌@X12─@X1A┐ @X1F@USER@@POS:60@@X10│ "
  58.             PrintLn "@X19 │@X13     A@X1Bc@X13c@X1Be@X13s@X1Bs @X13L@X1Be@X13v@X1Be@X13l @X12│@X1C■@X12│ @X1F@SECURITY@@POS:60@@X10│ "
  59.             PrintLn "@X19 │@X13     H@X1Bo@X13m@X1Be @X13P@X1Bh@X13o@X1Bn@X13e @X1B# @X1A│@X1C·@X1A│ @X1F@HOMEPHONE@@POS:60@@X10│ "
  60.             PrintLn "@X19 │@X13     @X1BD@X13a@X1Bt@X13a @X1BP@X13h@X1Bo@X13n@X1Be @X13# @X12│@X1C■@X12│ @X1F@DATAPHONE@@POS:60@@X10│ "
  61.             PrintLn "@X19 │@X13        L@X1Bi@X13v@X1Bi@X13n@X1Bg @X13i@X1Bn @X1A│@X1C·@X1A│ @X1F@CITY@@POS:60@@X10│ "
  62.             PrintLn "@X19 │@X13        @X1BB@X13a@X1Bu@X13d @X1BR@X13a@X1Bt@X13e @X12│@X1C■@X12│ @X1F@BPS@@POS:60@@X10│ "
  63.             PrintLn "@X19 │@X13     L@X1Ba@X13s@X1Bt @X13d@X1Ba@X13t@X1Be @X13o@X1Bn @X1A│@X1C·@X1A│ @X1F@LASTDATEON@@POS:60@@X10│ "
  64.             PrintLn "@X19 │@X13     M@X1Bi@X13n@X1Bu@X13t@X1Be@X13s @X1BL@X13e@X1Bf@X13t @X12│@X1C■@X12│ @X1F@MINLEFT@@X13 (min. left)@POS:60@@X10│ "
  65.             PrintLn "@X19 │@X13      @X1B#@X13# @X1BT@X13i@X1Bm@X13e@X1Bs @X13o@X1Bn @X1A│@X1C·@X1A│ @X1F@NUMTIMESON@@POS:60@@X10│ "
  66.             PrintLn "@X19 │@X13 D@X1Be@X13f@X1Ba@X13u@X1Bl@X13t @X1BP@X13r@X1Bo@X13t@X1Bo@X13c@X1Bo@X13l @X12└@X1A─@X12┘ @X1F@PRODESC@@POS:60@@X10│ "
  67.             PrintLn "@X19 │@POS:60@@X10│ "
  68.             PrintLn "@X19 │ @X1CL@X14a@X1Cs@X14t @X1Cu@X14s@X1Ce@X14r @X1Co@X14n @X1CB@X14B@X1CS @X1A■@X1E·@X1A■ @X1F@LASTCALLERSYSTEM@@X10@POS:60@│ "
  69.             PrintLn "@X19 └@X10─────────────────────────────────────────────────────────@X10┘ "
  70.             Newline
  71.             Wait
  72.             Goto LABEL001
  73.             Stop
  74.             :LABEL003
  75.             Cls
  76.             PrintLn "@X19 ┌[ @X13T@X1BS @X1CStats @X1Fv2.0 @X19]───────────[ @X1CFile @X14Stats @X13[@X1FF@X13] @X19]───────────@POS:60@@X10┐ "
  77.             PrintLn "@X19 └@X10─────────────────────────────────────────────────────────┘ "
  78.             Newline
  79.             PrintLn "@X19 ┌────────────────────────────────────────────────────────@X10┐ "
  80.             PrintLn "@X19 │@POS:59@@X10│ "
  81.             PrintLn "@X19 │@X1B   D@X13e@X1Bf@X13a@X1Bu@X13l@X1Bt @X13P@X1Br@X13o@X1Bt@X13o@X1Bc@X13o@X1Bl @X1A┌@X12─@X1A┐ @X1F@PRODESC@@POS:59@@X10│ "
  82.             PrintLn "@X19 │@X1B   D@X13o@X1Bw@X13n@X1Bl@X13o@X1Ba@X13d@X1Be@X13d @X1BB@X13y@X1Bt@X13e@X1Bs @X12│@X1C■@X12│ @X1F@DLBYTES@@X13 (D/Led Bytes)@POS:59@@X10│ "
  83.             PrintLn "@X19 │@X1B   D@X13o@X1Bw@X13n@X1Bl@X13o@X1Ba@X13d@X1Be@X13d@X1B F@X13i@X1Bl@X13e@X1Bs @X1A│@X1C·@X1A│ @X1F@DLFILES@@X13 (D/Led Files)@POS:59@@X10│ "
  84.             PrintLn "@X19 │@X1B     U@X13p@X1Bl@X13o@X1Ba@X13d@X1Be@X13d @X1BB@X13y@X1Bt@X13e@X1Bs @X12│@X1C■@X12│ @X1F@UPBYTES@@X13 (U/Led Bytes)@POS:59@@X10│ "
  85.             PrintLn "@X19 │@X1B     U@X13p@X1Bl@X13o@X1Ba@X13d@X1Be@X13d@X1B F@X13i@X1Bl@X13e@X1Bs @X1A│@X1C·@X1A│ @X1F@UPFILES@@X13 (U/Led Files)@POS:59@@X10│ "
  86.             PrintLn "@X19 │@X1B F@X13i@X1Bl@X13e @X1BR@X13a@X1Bt@X13i@X1Bo (DL/UL) @X12│@X1C■@X12│ @X1F@FILERATIO@@POS:59@@X10│ "
  87.             PrintLn "@X19 │@X1B B@X13y@X1Bt@X13e @X1BR@X13a@X1Bt@X13i@X1Bo (DL/UL) @X1A│@X1C·@X1A│ @X1F@BYTERATIO@@POS:59@@X10│ "
  88.             PrintLn "@X19 │@X1B   D@X13o@X1Bw@X13n@X1Bl@X13o@X1Ba@X13d@X1Be@X13d @X1BT@X13o@X1Bd@X13a@X1By @X12│@X1C■@X12│ @X1F@DAYBYTES@@POS:59@@X10│ "
  89.             PrintLn "@X19 │@X1B     D@X13/@X1BL@X13 B@X1By@X13t@X1Be@X13s @X1Bl@X13e@X1Bf@X13t @X1A└@X12─@X1A┘ @X1F@BYTESLEFT@@POS:59@@X10│ "
  90.             PrintLn "@X19 │@POS:59@@X10│ "
  91.             PrintLn "@X19 │ @X1CM@X14i@X1Cn@X14u@X1Ct@X14e@X1Cs @X14L@X1Ce@X1Cf@X14t @X1Ct@X14o@X1Cd@X14a@X1Cy @X1A■@X1E·@X1A■ @X1F@MINLEFT@ @X13(minutes)@POS:59@@X10│ "
  92.             PrintLn "@X19 └@X10────────────────────────────────────────────────────────┘ "
  93.             Newline
  94.             Wait
  95.             Goto LABEL001
  96.             Stop
  97.             :LABEL004
  98.             Cls
  99.             PrintLn "@X19 ┌[ @X13T@X1BS @X1CStats @X1Fv2.0 @X19]─────────[ @X1CMessage @X14Stats @X13[@X1FP@X13] @X19]────────@X10┐ "
  100.             PrintLn "@X19 └@X10───────────────────────────────────────────────────────┘ "
  101.             Newline
  102.             PrintLn "@X19 ┌────────────────────────────────────────────────────────@X10┐ "
  103.             PrintLn "@X19 │@POS:59@@X10│ "
  104.             PrintLn "@X19 │@X1B          I@X13n @X1Bc@X13o@X1Bn@X13f@X1Be@X13r@X1Be@X13n@X1Bc@X13e @X1B# @X1A┌@X12─@X1A┐ @X1F@INCONF@@POS:59@@X10│ "
  105.             PrintLn "@X19 │@X1BS@X13t@X1Bo@X13p@X1Bp@X13e@X1Bd@X13 R@X1Be@X13a@X1Bd@X13i@X1Bn@X13g@X1B M@X13e@X1Bs@X13s@X1Ba@X13g@X1Be @X13# @X12│@X12@X1C·@X12│ @X1F@CURMSGNUM@@POS:59@@X10│ "
  106.             PrintLn "@X19 │@X1B     H@X13i@X1Bg@X13h@X1B M@X13s@X1Bg@X13. @X1Bi@X13n @X13C@X1Bo@X13n@X1Bf@X13. @X1B# @X1A│@X12@X1C■@X1A│ @X1F@HIGHMSGNUM@@X13 (Highest Message)@POS:59@@X10│ "
  107.             PrintLn "@X19 │@X1B      L@X13o@X1Bw@X13 M@X1Bs@X13g@X1B. @X1Bi@X13n @X1BC@X13o@X1Bn@X13f@X1B. @X13# @X12│@X12@X1C·@X12│ @X1F@LOWMSGNUM@@X13 (Lowest Message)@POS:59@@X10│ "
  108.             PrintLn "@X19 │@X1B       W@X13r@X1Bi@X13t@X1Bt@X13e@X1Bn @X13M@X1Be@X13s@X1Bs@X13a@X1Bg@X13e@X1Bs@X13 # @X1A│@X12@X1C■@X1A│ @X1F@MSGLEFT@@X13 (Messages YOU wrote)@POS:59@@X10│ "
  109.             PrintLn "@X19 │@X1B         #@X13# @X1BM@X13e@X1Bs@X13s@X1Ba@X13g@X1Be@X13s @X1BR@X13e@X1Ba@X13d @X12└@X1A─@X12┘ @X1F@MSGREAD@@X13 (Messages YOU read)@POS:59@@X10│ "
  110.             PrintLn "@X19 └@X10────────────────────────────────────────────────────────@X10┘ "
  111.             Newline
  112.             Wait
  113.             Goto LABEL001
  114.             Stop
  115.             :LABEL005
  116.             Cls
  117.             Newline
  118.             Newline
  119.             PrintLn "@POS:25@@X0C┌─[ @X0FCoded By: @X03T@X0BS@X0C/@X03The@X0B Smasher @X0C]─@X04┐"
  120.             PrintLn "@POS:25@@X0C└@X04──────────────────────────────┘"
  121.             Stop
  122.     End Select
  123.     End
  124.  
  125. ;------------------------------------------------------------------------------
  126. ;
  127. ; Usage report (before postprocessing)
  128. ;
  129. ; ■ Statements used :
  130. ;
  131. ;    1       End
  132. ;    4       Cls
  133. ;    3       Wait
  134. ;    20      Goto 
  135. ;    55      PrintLn 
  136. ;    6       If 
  137. ;    1       DispFile 
  138. ;    10      Newline
  139. ;    4       Stop
  140. ;    1       InputText 
  141. ;
  142. ;
  143. ; ■ Functions used :
  144. ;
  145. ;    3       +
  146. ;    6       ==
  147. ;    6       !
  148. ;    3       Upper()
  149. ;    1       PPEPath()
  150. ;
  151. ;------------------------------------------------------------------------------
  152. ;
  153. ; Analysis flags : No flag
  154. ;
  155. ;------------------------------------------------------------------------------
  156. ;
  157. ; Postprocessing report
  158. ;
  159. ;    0       For/Next
  160. ;    0       While/EndWhile
  161. ;    0       If/Then or If/Then/Else
  162. ;    1       Select Case
  163. ;
  164. ;------------------------------------------------------------------------------
  165. ;                 AEGiS Corp - Break the routines, code against the machines!
  166. ;------------------------------------------------------------------------------
  167.